home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok52 / gadgeted / txt / filenames1.def < prev    next >
Text File  |  1993-11-04  |  640b  |  19 lines
  1. (*----------------------------------------------------------------------
  2.   :Program.    FileNames1.def
  3.   :Contents.   Funktionierendes GetExtension (s. FileNames)
  4.   :Author.     Hubert Bildstein
  5.   :Copyright.  Public Domain
  6.   :Language.   Modula-2
  7.   :Translator. M2Amiga V3.3d
  8.   :History.    V1.0   5.12.1990
  9.   :Remark.     GetExtension aus FileNames liefert bei mir keine
  10.   :Remark.     sinnvollen Resultate !?
  11. ----------------------------------------------------------------------*)
  12.  
  13. DEFINITION MODULE FileNames1;
  14.  
  15. PROCEDURE GetExtension (VAR fname, extension : ARRAY OF CHAR;
  16.                         VAR len : INTEGER);
  17.  
  18. END FileNames1.
  19.